home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib42b.dsk / IF THEN ELSE DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  484b  |  20 lines
  1. 10 <UNKNOWN TOKEN>
  2. 15  HOME 
  3. 20  INPUT "ENTER AN ANGLE ";A
  4. 30  INPUT "IS THAT IN RAD,DEG, OR GRAD (R,D,G) ";T$
  5. 40  IF T$ = "D"  THEN <UNKNOWN TOKEN>
  6. 50 <UNKNOWN TOKEN>
  7. 60 B = A *3.14159265/180
  8. 70 <UNKNOWN TOKEN>
  9. 80 <UNKNOWN TOKEN>
  10. 90  IF T$ = "G"  THEN <UNKNOWN TOKEN>
  11. 100 <UNKNOWN TOKEN>
  12. 110 B = A *3.14159265/200
  13. 120 <UNKNOWN TOKEN>
  14. 130 <UNKNOWN TOKEN>
  15. 140 B = A
  16. 150 <UNKNOWN TOKEN>
  17. 160 <UNKNOWN TOKEN>
  18. 170 C = ( INT( SIN(B) *10000))/10000
  19. 180  PRINT "THE SIN OF "A" IS "C
  20. 190  END